/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 002 / _roman

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 54 03 00 00 |Archive.|D...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 52 4f 4d 41 4e 00 | 00 00 00 00 ff ff ff ff |.!ROMAN.|........|
|00000070| 45 ff ff ff f2 a7 ba c7 | 30 00 00 00 ff ff ff ff |E.......|0.......|
|00000080| 20 01 00 80 82 21 42 4f | 4f 54 00 61 6d 65 20 3a | ....!BO|OT.ame :|
|00000090| 5d 00 00 00 43 eb ff ff | 9e 65 1e da 13 00 65 a1 |]...C...|.e....e.|
|000000a0| 5d 00 00 00 24 00 00 00 | 82 21 52 55 4e 00 4e 61 |]...$...|.!RUN.Na|
|000000b0| 6d 65 20 3a 92 00 00 00 | 43 eb ff ff 9e 65 1e da |me :....|C....e..|
|000000c0| 13 00 69 d4 92 00 00 00 | a5 00 00 00 83 21 52 55 |..i.....|.....!RU|
|000000d0| 4e 49 4d 41 47 45 00 3a | bd 0f 00 00 43 fb ff ff |NIMAGE.:|....C...|
|000000e0| 9e 65 1e da 13 00 1f 91 | bb 0e 00 00 5b 01 00 00 |.e......|....[...|
|000000f0| 83 21 53 50 52 49 54 45 | 53 00 20 3a 98 02 00 00 |.!SPRITE|S. :....|
|00000100| 43 f9 ff ff 9e 65 1e da | 13 00 05 8f 8c 01 00 00 |C....e..|........|
|00000110| 3a 10 00 00 83 52 45 41 | 44 4d 45 00 6d 65 20 3a |:....REA|DME.me :|
|00000120| 73 08 00 00 43 ff ff ff | 9e 65 1e da 13 00 a8 9b |s...C...|.e......|
|00000130| e3 07 00 00 ea 11 00 00 | 83 54 45 4d 50 4c 41 54 |........|.TEMPLAT|
|00000140| 45 53 00 3a 8e 01 00 00 | 43 ec ff ff 9e 65 1e da |ES.:....|C....e..|
|00000150| 13 00 f0 ab 6f 01 00 00 | f1 19 00 00 00 03 21 62 |....o...|......!b|
|00000160| 00 1b 4e 61 6d 65 20 3a | 0d 20 3a 0d 0d 7f f8 ff |..Name :|. :.....|
|00000170| 90 03 98 ff 90 03 a8 00 | 90 03 c8 ff 3c 00 21 62 |........|....<.!b|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 4f |....File|Data.!BO|
|00000360| 4f 54 00 61 6d 65 20 3a | 5d 00 00 00 43 eb ff ff |OT.ame :|]...C...|
|00000370| 9e 65 1e da 03 00 65 a1 | 49 63 6f 6e 53 70 72 69 |.e....e.|IconSpri|
|00000380| 74 65 73 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |tes <Obe|y$Dir>.!|
|00000390| 53 70 72 69 74 65 73 0a | 7c 20 54 68 69 73 20 66 |Sprites.|| This f|
|000003a0| 69 6c 65 20 68 61 73 20 | 62 65 65 6e 20 69 6e 6e |ile has |been inn|
|000003b0| 6f 63 75 6c 61 74 65 64 | 20 61 67 61 69 6e 73 74 |oculated| against|
|000003c0| 20 74 68 65 20 45 78 74 | 65 6e 64 20 56 69 72 75 | the Ext|end Viru|
|000003d0| 73 0a 7c 7c ff 46 69 6c | 65 44 61 74 61 82 21 52 |s.||.Fil|eData.!R|
|000003e0| 55 4e 00 4e 61 6d 65 20 | 3a 92 00 00 00 43 eb ff |UN.Name |:....C..|
|000003f0| ff 9e 65 1e da 03 00 69 | d4 7c 42 61 72 20 45 64 |..e....i|.|Bar Ed|
|00000400| 69 74 2c 20 76 65 72 73 | 69 6f 6e 20 22 31 2e 30 |it, vers|ion "1.0|
|00000410| 30 20 28 31 34 2d 4d 61 | 79 2d 39 30 29 22 0a 7c |0 (14-Ma|y-90)".||
|00000420| 0a 57 69 6d 70 53 6c 6f | 74 20 2d 6d 69 6e 20 31 |.WimpSlo|t -min 1|
|00000430| 36 4b 20 2d 6d 61 78 20 | 31 36 4b 0a 49 63 6f 6e |6K -max |16K.Icon|
|00000440| 53 70 72 69 74 65 73 20 | 3c 4f 62 65 79 24 44 69 |Sprites |<Obey$Di|
|00000450| 72 3e 2e 21 53 70 72 69 | 74 65 73 0a 57 69 6d 70 |r>.!Spri|tes.Wimp|
|00000460| 53 6c 6f 74 20 2d 6d 69 | 6e 20 31 36 6b 0a 52 75 |Slot -mi|n 16k.Ru|
|00000470| 6e 20 3c 4f 62 65 79 24 | 44 69 72 3e 2e 21 52 75 |n <Obey$|Dir>.!Ru|
|00000480| 6e 49 6d 61 67 65 20 25 | 2a 30 0a 46 69 6c 65 44 |nImage %|*0.FileD|
|00000490| 61 74 61 83 21 52 55 4e | 49 4d 41 47 45 00 3a bd |ata.!RUN|IMAGE.:.|
|000004a0| 0f 00 00 43 fb ff ff 9e | 65 1e da 03 00 1f 91 0d |...C....|e.......|
|000004b0| 00 0a 1a f4 20 3e 20 26 | 2e 21 52 6f 6d 61 6e 2e |.... > &|.!Roman.|
|000004c0| 21 52 75 6e 49 6d 61 67 | 65 0d 00 14 22 f4 20 2a |!RunImag|e...". *|
|000004d0| 90 1c 0d 00 1e 22 f4 20 | 2a 2a 20 90 18 2a 2a 0d |.....". |** ..**.|
|000004e0| 00 28 22 f4 20 2a 2a 20 | 90 08 44 65 73 6b 74 6f |.(". ** |..Deskto|
|000004f0| 70 20 90 09 2a 2a 0d 00 | 32 22 f4 20 2a 2a 20 90 |p ..**..|2". ** .|
|00000500| 18 2a 2a 0d 00 3c 22 f4 | 20 2a 2a 20 52 6f 6d 61 |.**..<".| ** Roma|
|00000510| 6e 20 4e 75 6d 62 65 72 | 20 43 6f 6e 76 65 72 74 |n Number| Convert|
|00000520| 6f 72 20 2a 2a 0d 00 46 | 22 f4 20 2a 2a 20 90 18 |or **..F|". ** ..|
|00000530| 2a 2a 0d 00 50 22 f4 20 | 2a 2a 20 90 03 a9 20 49 |**..P". |** ... I|
|00000540| 2e 4b 6e 6f 78 20 30 31 | 2f 30 36 2f 39 30 20 90 |.Knox 01|/06/90 .|
|00000550| 04 2a 2a 0d 00 5a 22 f4 | 20 2a 2a 20 90 18 2a 2a |.**..Z".| ** ..**|
|00000560| 0d 00 64 22 f4 20 2a 2a | 20 90 05 56 65 72 73 69 |..d". **| ..Versi|
|00000570| 6f 6e 20 31 2e 30 30 20 | 90 07 2a 2a 0d 00 6e 22 |on 1.00 |..**..n"|
|00000580| f4 20 2a 2a 20 90 18 2a | 2a 0d 00 78 22 f4 20 2a |. ** ..*|*..x". *|
|00000590| 90 1c 0d 00 82 05 3a 0d | 00 8c 11 de 20 62 6c 6f |......:.|.... blo|
|000005a0| 63 6b 25 20 26 38 30 30 | 0d 00 96 10 de 20 69 63 |ck% &800|..... ic|
|000005b0| 6f 6e 25 20 26 32 30 30 | 0d 00 a0 19 de 20 63 61 |on% &200|..... ca|
|000005c0| 72 64 69 6e 61 6c 5f 6e | 75 6d 62 65 72 25 28 38 |rdinal_n|umber%(8|
|000005d0| 29 0d 00 aa 17 de 20 63 | 61 72 64 69 6e 61 6c 5f |)..... c|ardinal_|
|000005e0| 63 68 61 72 24 28 38 29 | 0d 00 b4 04 0d 00 be 0e |char$(8)|........|
|000005f0| e3 20 5a 25 3d 31 20 b8 | 20 38 0d 00 c8 1d 20 90 |. Z%=1 .| 8.... .|
|00000600| 03 f3 20 63 61 72 64 69 | 6e 61 6c 5f 6e 75 6d 62 |.. cardi|nal_numb|
|00000610| 65 72 25 28 5a 25 29 0d | 00 d2 1b 20 90 03 f3 20 |er%(Z%).|... ... |
|00000620| 63 61 72 64 69 6e 61 6c | 5f 63 68 61 72 24 28 5a |cardinal|_char$(Z|
|00000630| 25 29 0d 00 dc 05 ed 0d | 00 e6 04 0d 00 f0 10 ee |%)......|........|
|00000640| 20 85 20 f2 65 72 72 6f | 72 3a e0 0d 00 fa 0e 72 | . .erro|r:.....r|
|00000650| 65 61 73 6f 6e 25 3d 2d | 31 0d 01 04 05 3a 0d 01 |eason%=-|1....:..|
|00000660| 0e 0b 71 75 69 74 25 3d | a3 0d 01 18 12 24 62 6c |..quit%=|.....$bl|
|00000670| 6f 63 6b 25 3d 22 54 41 | 53 4b 22 0d 01 22 3d c8 |ock%="TA|SK".."=.|
|00000680| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|00000690| 73 65 22 2c 32 30 30 2c | 21 62 6c 6f 63 6b 25 2c |se",200,|!block%,|
|000006a0| 22 52 6f 6d 61 6e 22 20 | b8 20 76 65 72 73 69 6f |"Roman" |. versio|
|000006b0| 6e 25 2c 74 61 73 6b 25 | 0d 01 2c 05 f4 0d 01 36 |n%,task%|..,....6|
|000006c0| 13 f4 20 43 72 65 61 74 | 65 20 57 69 6e 64 6f 77 |.. Creat|e Window|
|000006d0| 0d 01 40 05 f4 0d 01 4a | 22 f4 20 78 2c 79 2c 77 |..@....J|". x,y,w|
|000006e0| 69 64 74 68 2c 68 65 69 | 67 68 74 2c 65 78 74 78 |idth,hei|ght,extx|
|000006f0| 25 2c 65 78 74 79 25 0d | 01 54 24 f4 20 65 78 74 |%,exty%.|.T$. ext|
|00000700| 78 25 20 26 20 65 78 74 | 79 25 20 61 72 65 20 68 |x% & ext|y% are h|
|00000710| 69 64 64 65 6e 20 70 61 | 72 74 73 0d 01 5e 13 f2 |idden pa|rts..^..|
|00000720| 69 6e 69 74 5f 74 65 6d | 70 6c 61 74 65 73 0d 01 |init_tem|plates..|
|00000730| 68 14 77 68 61 6e 64 6c | 65 25 3d 68 61 6e 64 6c |h.whandl|e%=handl|
|00000740| 65 25 0d 01 72 05 f4 0d | 01 7c 11 f4 20 4f 70 65 |e%..r...|.|.. Ope|
|00000750| 6e 20 57 69 6e 64 6f 77 | 0d 01 86 05 f4 0d 01 90 |n Window|........|
|00000760| 00 15 62 6c 6f 63 6b 25 | 21 30 3d 77 68 61 6e 64 |..block%|!0=whand|
|00000770| 6c 65 25 0d 01 9a 24 c8 | 99 20 22 57 69 6d 70 5f |le%...$.|. "Wimp_|
|00000780| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00000790| 2c 62 6c 6f 63 6b 25 0d | 01 a4 20 c8 99 20 22 57 |,block%.|.. .. "W|
|000007a0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000007b0| 2c 62 6c 6f 63 6b 25 0d | 01 ae 1b f2 65 6e 74 65 |,block%.|....ente|
|000007c0| 72 5f 6e 75 6d 62 65 72 | 28 62 6c 6f 63 6b 25 21 |r_number|(block%!|
|000007d0| 30 29 0d 01 b8 05 f4 0d | 01 c2 0f f4 20 57 69 6d |0)......|.... Wim|
|000007e0| 70 20 50 6f 6c 6c 0d 01 | cc 05 f4 0d 01 d6 18 ee |p Poll..|........|
|000007f0| 20 85 20 e7 20 a4 77 69 | 6d 70 65 72 72 6f 72 20 | . . .wi|mperror |
|00000800| 8c 20 e0 0d 01 e0 05 f5 | 0d 01 ea 09 f2 70 6f 6c |. ......|.....pol|
|00000810| 6c 0d 01 f4 0b fd 20 71 | 75 69 74 25 0d 01 fe 12 |l..... q|uit%....|
|00000820| 24 62 6c 6f 63 6b 25 3d | 22 54 41 53 4b 22 0d 02 |$block%=|"TASK"..|
|00000830| 08 25 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.%.. "Wi|mp_Close|
|00000840| 44 6f 77 6e 22 2c 74 61 | 73 6b 25 2c 21 62 6c 6f |Down",ta|sk%,!blo|
|00000850| 63 6b 25 0d 02 12 05 e0 | 0d 02 1c 05 f4 0d 02 26 |ck%.....|.......&|
|00000860| 05 3a 0d 02 30 0b dd 20 | f2 70 6f 6c 6c 0d 02 3a |.:..0.. |.poll..:|
|00000870| 16 6f 6c 64 72 65 61 73 | 6f 6e 25 3d 72 65 61 73 |.oldreas|on%=reas|
|00000880| 6f 6e 25 0d 02 44 33 c8 | 99 20 22 57 69 6d 70 5f |on%..D3.|. "Wimp_|
|00000890| 50 6f 6c 6c 22 2c 31 2b | 28 31 3c 3c 34 29 2b 28 |Poll",1+|(1<<4)+(|
|000008a0| 31 3c 3c 35 29 2c 62 6c | 6f 63 6b 25 20 b8 20 72 |1<<5),bl|ock% . r|
|000008b0| 65 61 73 6f 6e 25 0d 02 | 4e 10 c8 8e 20 72 65 61 |eason%..|N... rea|
|000008c0| 73 6f 6e 25 20 ca 0d 02 | 58 18 20 90 03 c9 20 31 |son% ...|X. ... 1|
|000008d0| 20 90 06 3a f2 72 65 64 | 72 61 77 0d 02 62 3e 20 | ..:.red|raw..b> |
|000008e0| 90 03 c9 20 32 20 90 06 | 3a 21 62 6c 6f 63 6b 25 |... 2 ..|:!block%|
|000008f0| 3d 77 68 61 6e 64 6c 65 | 25 3a c8 99 20 22 57 69 |=whandle|%:.. "Wi|
|00000900| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000910| 62 6c 6f 63 6b 25 0d 02 | 6c 18 20 90 03 c9 20 33 |block%..|l. ... 3|
|00000920| 20 90 06 3a 71 75 69 74 | 25 3d b9 0d 02 76 35 20 | ..:quit|%=...v5 |
|00000930| 90 03 c9 20 36 20 90 06 | 3a f2 63 6c 69 63 6b 28 |... 6 ..|:.click(|
|00000940| 62 6c 6f 63 6b 25 21 31 | 32 2c 62 6c 6f 63 6b 25 |block%!1|2,block%|
|00000950| 21 31 36 2c 62 6c 6f 63 | 6b 25 21 38 29 0d 02 80 |!16,bloc|k%!8)...|
|00000960| 47 20 90 03 c9 20 38 20 | 90 06 3a c8 99 20 22 57 |G ... 8 |..:.. "W|
|00000970| 69 6d 70 5f 50 72 6f 63 | 65 73 73 4b 65 79 22 2c |imp_Proc|essKey",|
|00000980| 62 6c 6f 63 6b 25 21 32 | 34 3a f2 65 6e 74 65 72 |block%!2|4:.enter|
|00000990| 5f 6e 75 6d 62 65 72 28 | 62 6c 6f 63 6b 25 21 30 |_number(|block%!0|
|000009a0| 29 0d 02 8a 28 20 90 03 | c9 20 31 37 2c 31 38 20 |)...( ..|. 17,18 |
|000009b0| 20 3a e7 20 62 6c 6f 63 | 6b 25 21 31 36 3d 30 20 | :. bloc|k%!16=0 |
|000009c0| 8c 20 71 75 69 74 25 3d | b9 0d 02 94 05 cb 0d 02 |. quit%=|........|
|000009d0| 9e 05 e1 0d 02 a8 05 3a | 0d 02 b2 23 dd 20 f2 63 |.......:|...#. .c|
|000009e0| 6c 69 63 6b 28 77 68 61 | 6e 64 25 2c 69 68 61 6e |lick(wha|nd%,ihan|
|000009f0| 64 25 2c 62 75 74 74 6f | 6e 25 29 0d 02 bc 0f ea |d%,butto|n%).....|
|00000a00| 20 41 25 20 2c 41 24 2c | 53 25 0d 02 c6 10 c8 8e | A% ,A$,|S%......|
|00000a10| 20 62 75 74 74 6f 6e 25 | 20 ca 0d 02 d0 11 20 90 | button%| ..... .|
|00000a20| 03 c9 20 20 34 3a 20 53 | 25 3d 31 0d 02 da 12 20 |..  4: S|%=1.... |
|00000a30| 90 03 c9 20 20 31 3a 20 | 53 25 3d 31 30 0d 02 e4 |...  1: |S%=10...|
|00000a40| 11 20 90 03 c9 20 20 32 | 3a 20 53 25 3d 30 0d 02 |. ...  2|: S%=0..|
|00000a50| ee 05 cb 0d 02 f8 0f c8 | 8e 20 69 68 61 6e 64 25 |........|. ihand%|
|00000a60| 20 ca 0d 03 02 27 20 90 | 03 c9 20 20 34 3a 20 41 | ....' .|..  4: A|
|00000a70| 25 3d bb 28 a4 72 65 61 | 64 5f 69 63 6f 6e 28 77 |%=.(.rea|d_icon(w|
|00000a80| 68 61 6e 64 25 2c 30 29 | 29 0d 03 0c 2d 20 90 0c |hand%,0)|)...- ..|
|00000a90| 41 25 2b 3d 53 25 3a e7 | 20 41 25 3e 35 30 90 03 |A%+=S%:.| A%>50..|
|00000aa0| 20 8c 20 41 25 3d 35 30 | 90 03 3a ef 37 0d 03 16 | . A%=50|..:.7...|
|00000ab0| 18 20 90 0c 41 24 3d c3 | 28 41 25 29 0d 03 20 28 |. ..A$=.|(A%).. (|
|00000ac0| 20 90 0c f2 77 72 69 74 | 65 5f 69 63 6f 6e 28 77 | ...writ|e_icon(w|
|00000ad0| 68 61 6e 64 25 2c 30 2c | 41 24 29 0d 03 2a 25 20 |hand%,0,|A$)..*% |
|00000ae0| 90 0c f2 65 6e 74 65 72 | 5f 6e 75 6d 62 65 72 28 |...enter|_number(|
|00000af0| 77 68 61 6e 64 25 29 0d | 03 34 27 20 90 03 c9 20 |whand%).|.4' ... |
|00000b00| 20 35 3a 20 41 25 3d bb | 28 a4 72 65 61 64 5f 69 | 5: A%=.|(.read_i|
|00000b10| 63 6f 6e 28 77 68 61 6e | 64 25 2c 30 29 29 0d 03 |con(whan|d%,0))..|
|00000b20| 3e 27 20 90 0c 41 25 2d | 3d 53 25 3a e7 20 41 25 |>' ..A%-|=S%:. A%|
|00000b30| 3c 30 20 8c 20 41 25 3d | 30 3a ef 37 0d 03 48 18 |<0 . A%=|0:.7..H.|
|00000b40| 20 90 0c 41 24 3d c3 28 | 41 25 29 0d 03 52 28 20 | ..A$=.(|A%)..R( |
|00000b50| 90 0c f2 77 72 69 74 65 | 5f 69 63 6f 6e 28 77 68 |...write|_icon(wh|
|00000b60| 61 6e 64 25 2c 30 2c 41 | 24 29 0d 03 5c 25 20 90 |and%,0,A|$)..\% .|
|00000b70| 0c f2 65 6e 74 65 72 5f | 6e 75 6d 62 65 72 28 77 |..enter_|number(w|
|00000b80| 68 61 6e 64 25 29 0d 03 | 66 05 cb 0d 03 70 05 e1 |hand%)..|f....p..|
|00000b90| 0d 03 7a 05 3a 0d 03 84 | 1f dd 20 a4 72 65 61 64 |..z.:...|.. .read|
|00000ba0| 5f 69 63 6f 6e 28 77 68 | 61 6e 64 25 2c 69 68 61 |_icon(wh|and%,iha|
|00000bb0| 6e 64 25 29 0d 03 8e 12 | 69 63 6f 6e 25 21 30 3d |nd%)....|icon%!0=|
|00000bc0| 77 68 61 6e 64 25 0d 03 | 98 12 69 63 6f 6e 25 21 |whand%..|..icon%!|
|00000bd0| 34 3d 69 68 61 6e 64 25 | 0d 03 a2 21 c8 99 20 22 |4=ihand%|...!.. "|
|00000be0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00000bf0| 65 22 2c 2c 69 63 6f 6e | 25 0d 03 ac 10 3d 24 28 |e",,icon|%....=$(|
|00000c00| 69 63 6f 6e 25 21 32 38 | 29 0d 03 b6 05 3a 0d 03 |icon%!28|)....:..|
|00000c10| c0 23 dd 20 f2 77 72 69 | 74 65 5f 69 63 6f 6e 28 |.#. .wri|te_icon(|
|00000c20| 77 68 61 6e 64 25 2c 69 | 68 61 6e 64 25 2c 41 24 |whand%,i|hand%,A$|
|00000c30| 29 0d 03 ca 12 69 63 6f | 6e 25 21 30 3d 77 68 61 |)....ico|n%!0=wha|
|00000c40| 6e 64 25 0d 03 d4 12 69 | 63 6f 6e 25 21 34 3d 69 |nd%....i|con%!4=i|
|00000c50| 68 61 6e 64 25 0d 03 de | 21 c8 99 20 22 57 69 6d |hand%...|!.. "Wim|
|00000c60| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00000c70| 2c 69 63 6f 6e 25 0d 03 | e8 17 24 28 69 63 6f 6e |,icon%..|..$(icon|
|00000c80| 25 21 32 38 29 3d 41 24 | 2b bd 28 30 29 0d 03 f2 |%!28)=A$|+.(0)...|
|00000c90| 12 69 63 6f 6e 25 21 30 | 3d 77 68 61 6e 64 25 0d |.icon%!0|=whand%.|
|00000ca0| 03 fc 12 69 63 6f 6e 25 | 21 34 3d 69 68 61 6e 64 |...icon%|!4=ihand|
|00000cb0| 25 0d 04 06 0d 69 63 6f | 6e 25 21 38 3d 30 0d 04 |%....ico|n%!8=0..|
|00000cc0| 10 0e 69 63 6f 6e 25 21 | 31 32 3d 30 0d 04 1a 21 |..icon%!|12=0...!|
|00000cd0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00000ce0| 53 74 61 74 65 22 2c 2c | 69 63 6f 6e 25 0d 04 24 |State",,|icon%..$|
|00000cf0| 05 e1 0d 04 2e 05 3a 0d | 04 38 0d dd 20 f2 72 65 |......:.|.8.. .re|
|00000d00| 64 72 61 77 0d 04 42 15 | 62 6c 6f 63 6b 25 21 30 |draw..B.|block%!0|
|00000d10| 3d 77 68 61 6e 64 6c 65 | 25 0d 04 4c 2a c8 99 20 |=whandle|%..L*.. |
|00000d20| 22 57 69 6d 70 5f 52 65 | 64 72 61 77 57 69 6e 64 |"Wimp_Re|drawWind|
|00000d30| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 20 b8 20 6d 6f |ow",,blo|ck% . mo|
|00000d40| 72 65 25 0d 04 56 1e f2 | 67 65 74 6f 72 69 67 69 |re%..V..|getorigi|
|00000d50| 6e 28 62 6c 6f 63 6b 25 | 2c 78 30 25 2c 79 30 25 |n(block%|,x0%,y0%|
|00000d60| 29 0d 04 60 0c c8 95 20 | 6d 6f 72 65 25 0d 04 6a |)..`... |more%..j|
|00000d70| 0c 20 90 03 f2 64 72 61 | 77 0d 04 74 2d 20 90 03 |. ...dra|w..t- ..|
|00000d80| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |.. "Wimp|_GetRect|
|00000d90| 61 6e 67 6c 65 22 2c 2c | 62 6c 6f 63 6b 25 20 b8 |angle",,|block% .|
|00000da0| 20 6d 6f 72 65 25 0d 04 | 7e 05 ce 0d 04 88 05 e1 | more%..|~.......|
|00000db0| 0d 04 92 05 3a 0d 04 9c | 24 dd 20 f2 67 65 74 6f |....:...|$. .geto|
|00000dc0| 72 69 67 69 6e 28 62 6c | 6f 63 6b 25 2c f8 20 78 |rigin(bl|ock%,. x|
|00000dd0| 30 25 2c f8 20 79 30 25 | 29 0d 04 a6 1a 78 30 25 |0%,. y0%|)....x0%|
|00000de0| 3d 62 6c 6f 63 6b 25 21 | 34 2d 62 6c 6f 63 6b 25 |=block%!|4-block%|
|00000df0| 21 32 30 0d 04 b0 1b 79 | 30 25 3d 62 6c 6f 63 6b |!20....y|0%=block|
|00000e00| 25 21 31 36 2d 62 6c 6f | 63 6b 25 21 32 34 0d 04 |%!16-blo|ck%!24..|
|00000e10| ba 05 e1 0d 04 c4 05 3a | 0d 04 ce 0c dd 20 f2 63 |.......:|..... .c|
|00000e20| 6c 6f 73 65 0d 04 d8 12 | 24 62 6c 6f 63 6b 25 3d |lose....|$block%=|
|00000e30| 22 54 41 53 4b 22 0d 04 | e2 24 c8 99 22 57 69 6d |"TASK"..|.$.."Wim|
|00000e40| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 74 61 73 |p_CloseD|own",tas|
|00000e50| 6b 25 2c 21 62 6c 6f 63 | 6b 25 0d 04 ec 05 e1 0d |k%,!bloc|k%......|
|00000e60| 04 f6 05 3a 0d 05 00 0c | dd 20 f2 65 72 72 6f 72 |...:....|. .error|
|00000e70| 0d 05 0a 09 ee 20 85 20 | 87 0d 05 14 12 24 62 6c |..... . |.....$bl|
|00000e80| 6f 63 6b 25 3d 22 54 41 | 53 4b 22 0d 05 1e 24 c8 |ock%="TA|SK"...$.|
|00000e90| 99 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e |."Wimp_C|loseDown|
|00000ea0| 22 2c 74 61 73 6b 25 2c | 21 62 6c 6f 63 6b 25 0d |",task%,|!block%.|
|00000eb0| 05 28 16 f1 20 f6 24 3b | 22 20 61 74 20 6c 69 6e |.(.. .$;|" at lin|
|00000ec0| 65 20 22 3b 9e 0d 05 32 | 05 e1 0d 05 3c 05 3a 0d |e ";...2|....<.:.|
|00000ed0| 05 46 10 dd 20 a4 77 69 | 6d 70 65 72 72 6f 72 0d |.F.. .wi|mperror.|
|00000ee0| 05 50 0d 21 62 6c 6f 63 | 6b 25 3d 9f 0d 05 5a 24 |.P.!bloc|k%=...Z$|
|00000ef0| 24 28 62 6c 6f 63 6b 25 | 2b 34 29 3d f6 24 2b 22 |$(block%|+4)=.$+"|
|00000f00| 20 61 74 20 6c 69 6e 65 | 20 22 2b c3 9e 2b bd 30 | at line| "+..+.0|
|00000f10| 0d 05 64 3c c8 99 22 57 | 69 6d 70 5f 52 65 70 6f |..d<.."W|imp_Repo|
|00000f20| 72 74 45 72 72 6f 72 22 | 2c 62 6c 6f 63 6b 25 2c |rtError"|,block%,|
|00000f30| 33 2c 22 54 65 73 74 20 | 57 69 6e 64 6f 77 22 20 |3,"Test |Window" |
|00000f40| b8 20 2c 72 65 73 70 6f | 6e 73 65 25 0d 05 6e 22 |. ,respo|nse%..n"|
|00000f50| e7 20 72 65 73 70 6f 6e | 73 65 25 3d 32 20 8c 20 |. respon|se%=2 . |
|00000f60| f2 63 6c 6f 73 65 3a 3d | b9 20 8b 20 3d a3 0d 05 |.close:=|. . =...|
|00000f70| 78 05 3a 0d 05 82 15 dd | 20 f2 69 6e 69 74 5f 74 |x.:.....| .init_t|
|00000f80| 65 6d 70 6c 61 74 65 73 | 0d 05 8c 0f 6d 61 78 77 |emplates|....maxw|
|00000f90| 73 25 3d 26 34 30 30 0d | 05 96 10 de 20 77 73 25 |s%=&400.|.... ws%|
|00000fa0| 20 6d 61 78 77 73 25 0d | 05 a0 0e 63 75 72 77 73 | maxws%.|...curws|
|00000fb0| 25 3d 77 73 25 0d 05 aa | 32 c8 99 20 22 57 69 6d |%=ws%...|2.. "Wim|
|00000fc0| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000fd0| 2c 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 54 65 6d |,"<Obey$|Dir>.Tem|
|00000fe0| 70 6c 61 74 65 73 22 0d | 05 b4 4d c8 99 20 22 57 |plates".|..M.. "W|
|00000ff0| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00001000| 22 2c 2c 20 62 6c 6f 63 | 6b 25 2c 63 75 72 77 73 |",, bloc|k%,curws|
|00001010| 25 2c 77 73 25 2b 6d 61 | 78 77 73 25 2c 2d 31 2c |%,ws%+ma|xws%,-1,|
|00001020| 22 52 6f 6d 61 6e 22 2c | 30 20 b8 20 2c 2c 63 75 |"Roman",|0 . ,,cu|
|00001030| 72 77 73 25 0d 05 be 2c | c8 99 20 22 57 69 6d 70 |rws%...,|.. "Wimp|
|00001040| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00001050| 62 6c 6f 63 6b 25 20 b8 | 20 68 61 6e 64 6c 65 25 |block% .| handle%|
|00001060| 0d 05 c8 1b c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |...... "|Wimp_Clo|
|00001070| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 05 d2 05 e1 |seTempla|te".....|
|00001080| 0d 05 dc 05 3a 0d 05 e6 | 05 3a 0d 05 f0 05 3a 0d |....:...|.:....:.|
|00001090| 05 fa 1b dd 20 f2 65 6e | 74 65 72 5f 6e 75 6d 62 |.... .en|ter_numb|
|000010a0| 65 72 28 77 68 61 6e 64 | 25 29 0d 06 04 15 ea 20 |er(whand|%)..... |
|000010b0| 41 25 2c 42 25 2c 58 25 | 2c 72 6f 6d 61 6e 24 0d |A%,B%,X%|,roman$.|
|000010c0| 06 0e 0d 72 6f 6d 61 6e | 24 3d 22 22 0d 06 18 20 |...roman|$=""... |
|000010d0| 6e 75 6d 25 3d bb 28 a4 | 72 65 61 64 5f 69 63 6f |num%=.(.|read_ico|
|000010e0| 6e 28 77 68 61 6e 64 25 | 2c 30 29 29 0d 06 22 0b |n(whand%|,0))..".|
|000010f0| 58 25 3d 6e 75 6d 25 0d | 06 2c 11 e7 20 58 25 3c |X%=num%.|.,.. X%<|
|00001100| 30 20 8c 20 58 25 3d 30 | 0d 06 36 15 e7 20 58 25 |0 . X%=0|..6.. X%|
|00001110| 3e 3d 35 30 90 03 20 8c | 20 58 25 3d 30 0d 06 40 |>=50.. .| X%=0..@|
|00001120| 3c e7 20 6e 75 6d 25 3d | 30 20 8c 20 72 6f 6d 61 |<. num%=|0 . roma|
|00001130| 6e 24 3d 22 54 68 65 72 | 65 20 69 73 20 6e 6f 20 |n$="Ther|e is no |
|00001140| 52 6f 6d 61 6e 20 6e 75 | 6d 65 72 61 6c 20 66 6f |Roman nu|meral fo|
|00001150| 72 20 27 5a 65 72 6f 27 | 22 0d 06 4a 34 e7 20 6e |r 'Zero'|"..J4. n|
|00001160| 75 6d 25 3e 3d 35 30 90 | 03 20 8c 20 72 6f 6d 61 |um%>=50.|. . roma|
|00001170| 6e 24 3d 22 54 68 69 73 | 20 6e 75 6d 62 65 72 20 |n$="This| number |
|00001180| 69 73 20 74 6f 6f 20 6c | 61 72 67 65 22 0d 06 54 |is too l|arge"..T|
|00001190| 0e e3 20 41 25 3d 31 20 | b8 20 37 0d 06 5e 16 e3 |.. A%=1 |. 7..^..|
|000011a0| 20 42 25 3d 38 20 b8 20 | 41 25 2b 31 20 88 20 2d | B%=8 . |A%+1 . -|
|000011b0| 31 0d 06 68 48 e7 20 28 | 63 61 72 64 69 6e 61 6c |1..hH. (|cardinal|
|000011c0| 5f 6e 75 6d 62 65 72 25 | 28 41 25 29 2d 63 61 72 |_number%|(A%)-car|
|000011d0| 64 69 6e 61 6c 5f 6e 75 | 6d 62 65 72 25 28 42 25 |dinal_nu|mber%(B%|
|000011e0| 29 29 3e 63 61 72 64 69 | 6e 61 6c 5f 6e 75 6d 62 |))>cardi|nal_numb|
|000011f0| 65 72 25 28 42 25 29 20 | 8c 0d 06 72 35 6e 75 6d |er%(B%) |...r5num|
|00001200| 62 65 72 25 3d 63 61 72 | 64 69 6e 61 6c 5f 6e 75 |ber%=car|dinal_nu|
|00001210| 6d 62 65 72 25 28 41 25 | 29 2d 63 61 72 64 69 6e |mber%(A%|)-cardin|
|00001220| 61 6c 5f 6e 75 6d 62 65 | 72 25 28 42 25 29 0d 06 |al_numbe|r%(B%)..|
|00001230| 7c 3b 72 6f 6d 61 6e 5f | 65 71 75 69 76 61 6c 65 ||;roman_|equivale|
|00001240| 6e 74 24 3d 63 61 72 64 | 69 6e 61 6c 5f 63 68 61 |nt$=card|inal_cha|
|00001250| 72 24 28 42 25 29 2b 63 | 61 72 64 69 6e 61 6c 5f |r$(B%)+c|ardinal_|
|00001260| 63 68 61 72 24 28 41 25 | 29 0d 06 86 11 72 6f 6d |char$(A%|)....rom|
|00001270| 61 6e 24 2b 3d a4 63 61 | 6c 63 0d 06 90 00 05 cd |an$+=.ca|lc......|
|00001280| 0d 06 9a 05 ed 0d 06 a4 | 05 ed 0d 06 ae 20 f2 77 |........|..... .w|
|00001290| 72 69 74 65 5f 69 63 6f | 6e 28 77 68 61 6e 64 25 |rite_ico|n(whand%|
|000012a0| 2c 31 2c 72 6f 6d 61 6e | 24 29 0d 06 b8 05 e1 0d |,1,roman|$)......|
|000012b0| 06 c2 05 3a 0d 06 cc 0b | dd 20 a4 63 61 6c 63 0d |...:....|. .calc.|
|000012c0| 06 d6 0b ea 20 59 25 2c | 52 24 0d 06 e0 09 52 24 |.... Y%,|R$....R$|
|000012d0| 3d 22 22 0d 06 ea 05 f5 | 0d 06 f4 11 59 25 3d 58 |="".....|....Y%=X|
|000012e0| 25 2d 6e 75 6d 62 65 72 | 25 0d 06 fe 0d e7 20 59 |%-number|%..... Y|
|000012f0| 25 3e 3d 30 20 8c 0d 07 | 08 19 52 24 2b 3d 72 6f |%>=0 ...|..R$+=ro|
|00001300| 6d 61 6e 5f 65 71 75 69 | 76 61 6c 65 6e 74 24 0d |man_equi|valent$.|
|00001310| 07 12 0f 58 25 2d 3d 6e | 75 6d 62 65 72 25 0d 07 |...X%-=n|umber%..|
|00001320| 1c 05 cd 0d 07 26 0a fd | 20 59 25 3c 30 0d 07 30 |.....&..| Y%<0..0|
|00001330| 07 3d 52 24 0d 07 3a 05 | 3a 0d 07 44 2f dc 20 31 |.=R$..:.|:..D/. 1|
|00001340| 30 90 03 2c 4d 2c 35 30 | 30 2c 44 2c 31 30 30 2c |0..,M,50|0,D,100,|
|00001350| 43 2c 35 30 2c 4c 2c 31 | 30 2c 58 2c 35 2c 56 2c |C,50,L,1|0,X,5,V,|
|00001360| 31 2c 49 2c 30 2c 22 22 | 0d ff 46 69 6c 65 44 61 |1,I,0,""|..FileDa|
|00001370| 74 61 83 21 53 50 52 49 | 54 45 53 00 20 3a 98 02 |ta.!SPRI|TES. :..|
|00001380| 00 00 43 f9 ff ff 9e 65 | 1e da 03 00 05 8f 01 00 |..C....e|........|
|00001390| 90 03 10 00 90 03 9c 02 | 00 00 8c 02 00 00 21 72 |........|......!r|
|000013a0| 6f 6d 61 6e 00 90 06 03 | 00 90 03 0e 00 90 07 0b |oman....|........|
|000013b0| 00 90 03 ac 00 90 03 9c | 01 00 00 0c 00 90 03 10 |........|........|
|000013c0| f0 90 03 10 f0 90 03 10 | d0 90 03 10 d0 90 03 10 |........|........|
|000013d0| b0 90 03 10 b0 90 03 10 | 90 00 90 00 90 00 10 90 |........|........|
|000013e0| 00 90 00 90 00 10 70 90 | 03 10 70 90 03 10 50 90 |......p.|..p...P.|
|000013f0| 03 10 50 90 03 10 30 90 | 03 10 30 90 03 10 00 90 |..P...0.|..0.....|
|00001400| 03 10 00 90 03 10 00 40 | 90 00 10 00 40 90 00 10 |.......@|....@...|
|00001410| e0 e0 00 10 e0 e0 00 10 | 00 c0 00 10 00 c0 00 10 |........|........|
|00001420| d0 00 00 10 d0 00 00 10 | e0 e0 b0 10 e0 e0 b0 10 |........|........|
|00001430| 80 50 90 00 10 80 50 90 | 00 10 f0 b0 00 10 f0 b0 |.P....P.|........|
|00001440| 00 10 00 b0 f0 10 00 b0 | f0 ee 90 0d 8e 88 88 ee |........|........|
|00001450| ff 90 0b ef 8e 88 88 ee | 7f 77 ff 7f 77 ff 77 90 |........|.w..w.w.|
|00001460| 04 f7 ef 8e 88 88 ee 7f | 77 ff 7f 77 ff 77 90 04 |........|w..w.w..|
|00001470| f7 ef 8e 88 88 ee 7f 77 | ff 7f 77 ff ff 7f 77 ff |.......w|..w...w.|
|00001480| ff ef 8e 88 88 ee ff 7f | 77 77 f7 ff ff 7f 77 ff |........|ww....w.|
|00001490| ff ef 8e 88 88 ee ff 7f | 77 77 f7 ff ff 7f 77 ff |........|ww....w.|
|000014a0| ff ef 0e 00 00 ee ff ff | 77 f7 ff 90 03 7f 77 ff |........|w.....w.|
|000014b0| ff ef 7e 77 77 ee ff 7f | 77 77 f7 ff ff 7f 77 ff |..~ww...|ww....w.|
|000014c0| ff ef 7e 77 77 ee ff 7f | 77 77 f7 ff ff 7f 77 ff |..~ww...|ww....w.|
|000014d0| ff ef 7e 77 77 ee 7f 77 | ff 7f 77 ff ff 7f 77 ff |..~ww..w|..w...w.|
|000014e0| ff ef 7e 77 77 ee 7f 77 | ff 7f 77 ff 77 90 04 f7 |..~ww..w|..w.w...|
|000014f0| ef 7e 77 77 ee 7f 77 ff | 7f 77 ff 77 90 04 f7 ef |.~ww..w.|.w.w....|
|00001500| 7e 77 77 ee ff 90 0b ef | 7e 77 77 ee 90 0d 7e 77 |~ww.....|~ww...~w|
|00001510| 77 ff 90 6d 0f 00 00 ff | 90 80 46 69 6c 65 44 61 |w..m....|..FileDa|
|00001520| 74 61 83 52 45 41 44 4d | 45 00 6d 65 20 3a 73 08 |ta.READM|E.me :s.|
|00001530| 00 00 43 ff ff ff 9e 65 | 1e da 03 00 a8 9b 50 72 |..C....e|......Pr|
|00001540| 6f 67 72 61 6d 6d 65 72 | 27 73 20 43 68 61 6c 6c |ogrammer|'s Chall|
|00001550| 65 6e 67 65 20 90 03 52 | 6f 6d 61 6e 20 4e 75 6d |enge ..R|oman Num|
|00001560| 65 72 61 6c 73 0a 0a 42 | 79 20 49 61 6e 20 4b 6e |erals..B|y Ian Kn|
|00001570| 6f 78 20 28 41 63 63 6f | 75 6e 74 20 32 32 29 20 |ox (Acco|unt 22) |
|00001580| 32 38 2f 30 33 2f 39 30 | 0a 0a 54 77 6f 20 61 72 |28/03/90|..Two ar|
|00001590| 72 61 79 73 20 61 72 65 | 20 64 69 6d 65 6e 73 69 |rays are| dimensi|
|000015a0| 6f 6e 65 64 20 6f 6e 65 | 20 74 6f 20 73 74 6f 72 |oned one| to stor|
|000015b0| 65 20 74 68 65 20 63 61 | 72 64 69 6e 61 6c 20 52 |e the ca|rdinal R|
|000015c0| 6f 6d 61 6e 20 0a 4e 75 | 6d 65 72 61 6c 20 63 68 |oman .Nu|meral ch|
|000015d0| 61 72 61 63 74 65 72 73 | 20 61 6e 64 20 74 68 65 |aracters| and the|
|000015e0| 20 6f 74 68 65 72 20 66 | 6f 72 20 74 68 65 69 72 | other f|or their|
|000015f0| 20 64 65 63 69 6d 61 6c | 20 65 71 75 69 76 61 6c | decimal| equival|
|00001600| 65 6e 74 2e 0a 0a 44 61 | 74 61 20 69 73 20 72 65 |ent...Da|ta is re|
|00001610| 61 64 20 69 6e 74 6f 20 | 74 68 65 73 65 20 74 77 |ad into |these tw|
|00001620| 6f 20 61 72 72 61 79 73 | 2e 0a 0a 54 68 65 20 70 |o arrays|...The p|
|00001630| 72 6f 67 72 61 6d 20 70 | 72 6f 6d 70 74 73 20 79 |rogram p|rompts y|
|00001640| 6f 75 20 74 6f 20 65 6e | 74 65 72 20 61 20 6e 75 |ou to en|ter a nu|
|00001650| 6d 62 65 72 20 61 6e 64 | 20 74 68 65 6e 20 74 72 |mber and| then tr|
|00001660| 61 70 73 20 74 68 65 20 | 0a 68 69 67 68 20 61 6e |aps the |.high an|
|00001670| 64 20 6c 6f 77 20 6c 69 | 6d 69 74 73 20 61 73 20 |d low li|mits as |
|00001680| 74 68 65 72 65 20 61 72 | 65 20 6e 6f 20 52 6f 6d |there ar|e no Rom|
|00001690| 61 6e 20 4e 75 6d 65 72 | 61 6c 73 20 66 6f 72 20 |an Numer|als for |
|000016a0| 6e 75 6d 62 65 72 73 20 | 0a 6c 65 73 73 20 74 68 |numbers |.less th|
|000016b0| 61 6e 20 6f 6e 65 20 61 | 6e 64 20 6e 75 6d 62 65 |an one a|nd numbe|
|000016c0| 72 73 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |rs great|er than |
|000016d0| 35 30 90 03 20 6c 6f 6f | 6b 20 73 69 6c 6c 79 2e |50.. loo|k silly.|
|000016e0| 0a 0a 54 68 65 20 73 65 | 6c 65 63 74 65 64 20 6e |..The se|lected n|
|000016f0| 75 6d 62 65 72 20 69 73 | 20 70 72 69 6e 74 65 64 |umber is| printed|
|00001700| 20 6f 6e 20 74 68 65 20 | 73 63 72 65 65 6e 2e 0a | on the |screen..|
|00001710| 0a 54 68 65 20 70 72 6f | 67 72 61 6d 20 67 65 6e |.The pro|gram gen|
|00001720| 65 72 61 74 65 73 20 65 | 61 63 68 20 52 6f 6d 61 |erates e|ach Roma|
|00001730| 6e 20 4e 75 6d 65 72 61 | 6c 20 6f 72 20 4e 75 6d |n Numera|l or Num|
|00001740| 65 72 61 6c 20 70 61 69 | 72 20 61 6c 6f 6e 67 20 |eral pai|r along |
|00001750| 0a 77 69 74 68 20 69 74 | 73 20 64 65 63 69 6d 61 |.with it|s decima|
|00001760| 6c 20 65 71 75 69 76 61 | 6c 65 6e 74 2e 20 54 68 |l equiva|lent. Th|
|00001770| 65 73 65 20 63 6f 6e 73 | 69 73 74 20 6f 66 20 74 |ese cons|ist of t|
|00001780| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 0a 0a 20 90 |he follo|wing.. .|
|00001790| 05 4d 20 90 04 3d 20 90 | 03 31 30 90 03 20 90 07 |.M ..= .|.10.. ..|
|000017a0| 43 61 72 64 69 6e 61 6c | 20 4e 75 6d 65 72 61 6c |Cardinal| Numeral|
|000017b0| 0a 20 90 05 49 4d 20 90 | 03 3d 20 90 04 39 90 03 |. ..IM .|.= ..9..|
|000017c0| 20 90 05 0a 20 90 05 56 | 4d 20 90 03 3d 20 90 04 | ... ..V|M ..= ..|
|000017d0| 39 39 35 0a 20 90 05 58 | 4d 20 90 03 3d 20 90 04 |995. ..X|M ..= ..|
|000017e0| 39 39 30 0a 20 90 05 4c | 4d 20 90 03 3d 20 90 04 |990. ..L|M ..= ..|
|000017f0| 39 35 30 0a 20 90 05 43 | 4d 20 90 03 3d 20 90 04 |950. ..C|M ..= ..|
|00001800| 39 30 30 0a 20 90 05 44 | 20 90 04 3d 20 90 04 35 |900. ..D| ..= ..5|
|00001810| 30 30 20 90 07 43 61 72 | 64 69 6e 61 6c 20 20 4e |00 ..Car|dinal  N|
|00001820| 75 6d 65 72 61 6c 0a 20 | 90 05 49 44 20 90 03 3d |umeral. |..ID ..=|
|00001830| 20 90 04 34 39 39 0a 20 | 90 05 56 44 20 90 03 3d | ..499. |..VD ..=|
|00001840| 20 90 04 34 39 35 0a 20 | 90 05 58 44 20 90 03 3d | ..495. |..XD ..=|
|00001850| 20 90 04 34 39 30 0a 20 | 90 05 4c 44 20 90 03 3d | ..490. |..LD ..=|
|00001860| 20 90 04 34 35 30 0a 20 | 90 05 43 44 20 90 03 3d | ..450. |..CD ..=|
|00001870| 20 90 04 34 30 30 0a 20 | 90 05 43 20 90 04 3d 20 | ..400. |..C ..= |
|00001880| 90 04 31 30 30 20 90 07 | 43 61 72 64 69 6e 61 6c |..100 ..|Cardinal|
|00001890| 20 4e 75 6d 65 72 61 6c | 0a 20 90 05 49 43 20 90 | Numeral|. ..IC .|
|000018a0| 03 3d 20 90 05 39 39 0a | 20 90 05 56 43 20 90 03 |.= ..99.| ..VC ..|
|000018b0| 3d 20 90 05 39 35 0a 20 | 90 05 58 43 20 90 03 3d |= ..95. |..XC ..=|
|000018c0| 20 90 05 39 30 0a 20 90 | 05 4c 20 90 04 3d 20 90 | ..90. .|.L ..= .|
|000018d0| 05 35 30 20 90 07 43 61 | 72 64 69 6e 61 6c 20 4e |.50 ..Ca|rdinal N|
|000018e0| 75 6d 65 72 61 6c 0a 20 | 90 05 49 4c 20 90 03 3d |umeral. |..IL ..=|
|000018f0| 20 90 05 34 39 0a 20 90 | 05 56 4c 20 90 03 3d 20 | ..49. .|.VL ..= |
|00001900| 90 05 34 35 0a 20 90 05 | 58 4c 20 90 03 3d 20 90 |..45. ..|XL ..= .|
|00001910| 05 34 30 0a 20 90 05 58 | 20 90 04 3d 20 90 05 31 |.40. ..X| ..= ..1|
|00001920| 30 20 90 07 43 61 72 64 | 69 6e 61 6c 20 4e 75 6d |0 ..Card|inal Num|
|00001930| 65 72 61 6c 0a 20 90 05 | 49 58 20 90 03 3d 20 90 |eral. ..|IX ..= .|
|00001940| 06 39 0a 20 90 05 56 20 | 90 04 3d 20 90 06 35 20 |.9. ..V |..= ..5 |
|00001950| 90 07 43 61 72 64 69 6e | 61 6c 20 4e 75 6d 65 72 |..Cardin|al Numer|
|00001960| 61 6c 0a 20 90 05 49 56 | 20 90 03 3d 20 90 06 34 |al. ..IV| ..= ..4|
|00001970| 0a 20 90 05 49 20 90 04 | 3d 20 90 06 31 20 90 07 |. ..I ..|= ..1 ..|
|00001980| 43 61 72 64 69 6e 61 6c | 20 4e 75 6d 65 72 61 6c |Cardinal| Numeral|
|00001990| 0a 0a 54 68 65 72 65 20 | 61 72 65 20 61 20 66 65 |..There |are a fe|
|000019a0| 77 20 6f 74 68 65 72 20 | 6e 75 6d 65 72 61 6c 20 |w other |numeral |
|000019b0| 70 61 69 72 73 20 67 65 | 6e 65 72 61 74 65 64 20 |pairs ge|nerated |
|000019c0| 62 75 74 20 74 68 65 73 | 65 20 61 72 65 20 0a 69 |but thes|e are .i|
|000019d0| 67 6e 6f 72 65 64 20 62 | 65 63 61 75 73 65 20 74 |gnored b|ecause t|
|000019e0| 68 65 69 72 20 76 61 6c | 75 65 20 69 73 20 6f 66 |heir val|ue is of|
|000019f0| 20 61 20 43 61 72 64 69 | 6e 61 6c 20 4e 75 6d 65 | a Cardi|nal Nume|
|00001a00| 72 61 6c 20 61 6e 64 20 | 74 68 65 73 65 20 0a 61 |ral and |these .a|
|00001a10| 72 65 20 61 73 20 66 6f | 6c 6c 6f 77 73 2e 0a 0a |re as fo|llows...|
|00001a20| 20 90 05 44 4d 20 90 03 | 3d 20 90 04 35 30 30 20 | ..DM ..|= ..500 |
|00001a30| 28 44 29 0a 20 90 05 4c | 43 20 90 03 3d 20 90 05 |(D). ..L|C ..= ..|
|00001a40| 35 30 20 28 4c 29 0a 20 | 90 05 56 58 20 90 03 3d |50 (L). |..VX ..=|
|00001a50| 20 90 06 35 20 28 56 29 | 20 0a 0a 41 73 20 6c 69 | ..5 (V)| ..As li|
|00001a60| 73 74 65 64 20 74 68 65 | 20 4e 75 6d 65 72 61 6c |sted the| Numeral|
|00001a70| 73 20 61 6e 64 20 4e 75 | 6d 65 72 61 6c 20 50 61 |s and Nu|meral Pa|
|00001a80| 69 72 73 20 61 72 65 20 | 75 73 65 64 20 69 6e 20 |irs are |used in |
|00001a90| 64 65 63 72 65 61 73 69 | 6e 67 20 0a 6f 72 64 65 |decreasi|ng .orde|
|00001aa0| 72 20 69 6e 20 50 52 4f | 43 63 61 6c 63 20 61 73 |r in PRO|Ccalc as|
|00001ab0| 20 76 61 72 69 61 62 6c | 65 73 20 6e 75 6d 62 65 | variabl|es numbe|
|00001ac0| 72 25 20 28 64 65 63 69 | 6d 61 6c 20 65 71 75 69 |r% (deci|mal equi|
|00001ad0| 76 61 6c 65 6e 74 29 20 | 61 6e 64 20 0a 72 6f 6d |valent) |and .rom|
|00001ae0| 61 6e 5f 65 71 75 69 76 | 61 6c 65 6e 74 24 2e 20 |an_equiv|alent$. |
|00001af0| 54 68 65 20 6c 6f 63 61 | 6c 20 76 61 72 69 61 62 |The loca|l variab|
|00001b00| 6c 65 20 59 25 20 69 73 | 20 73 65 74 20 74 6f 20 |le Y% is| set to |
|00001b10| 74 68 65 20 76 61 6c 75 | 65 20 58 25 20 0a 28 74 |the valu|e X% .(t|
|00001b20| 68 65 20 75 6e 63 61 6c | 63 75 6c 61 74 65 64 20 |he uncal|culated |
|00001b30| 72 65 6d 61 69 6e 64 65 | 72 20 6f 66 20 74 68 65 |remainde|r of the|
|00001b40| 20 73 65 6c 65 63 74 65 | 64 20 6e 75 6d 62 65 72 | selecte|d number|
|00001b50| 29 20 61 6e 64 20 74 68 | 65 20 0a 73 75 62 74 72 |) and th|e .subtr|
|00001b60| 61 63 74 69 6f 6e 20 6f | 66 20 6e 75 6d 62 65 72 |action o|f number|
|00001b70| 25 2e 20 49 66 20 59 25 | 20 68 61 73 20 61 20 76 |%. If Y%| has a v|
|00001b80| 61 6c 75 65 20 67 72 65 | 61 74 65 72 20 74 68 61 |alue gre|ater tha|
|00001b90| 6e 20 7a 65 72 6f 20 74 | 68 65 6e 20 0a 74 68 65 |n zero t|hen .the|
|00001ba0| 20 63 68 61 72 61 63 74 | 65 72 28 73 29 20 69 73 | charact|er(s) is|
|00001bb0| 20 70 72 69 6e 74 65 64 | 20 61 64 64 69 6e 67 20 | printed| adding |
|00001bc0| 74 6f 20 74 68 65 20 6e | 75 6d 65 72 61 6c 20 73 |to the n|umeral s|
|00001bd0| 74 72 69 6e 67 20 6f 66 | 20 0a 63 68 61 72 61 63 |tring of| .charac|
|00001be0| 74 65 72 73 2e 20 54 68 | 65 20 76 61 72 69 61 62 |ters. Th|e variab|
|00001bf0| 6c 65 20 58 25 20 68 61 | 73 20 6e 75 6d 62 65 72 |le X% ha|s number|
|00001c00| 25 20 73 75 62 74 72 61 | 63 74 65 64 20 66 72 6f |% subtra|cted fro|
|00001c10| 6d 20 69 74 20 67 69 76 | 69 6e 67 20 0a 61 20 6e |m it giv|ing .a n|
|00001c20| 65 77 20 75 6e 63 61 6c | 63 75 6c 61 74 65 64 20 |ew uncal|culated |
|00001c30| 72 65 6d 61 69 6e 64 65 | 72 2e 20 54 68 69 73 20 |remainde|r. This |
|00001c40| 69 73 20 72 65 70 65 61 | 74 65 64 20 75 6e 74 69 |is repea|ted unti|
|00001c50| 6c 20 59 25 20 69 73 20 | 6c 65 73 73 20 0a 74 68 |l Y% is |less .th|
|00001c60| 61 6e 20 7a 65 72 6f 20 | 77 68 65 6e 20 74 68 65 |an zero |when the|
|00001c70| 20 70 72 6f 63 65 64 75 | 72 65 20 69 73 20 65 78 | procedu|re is ex|
|00001c80| 69 74 65 64 2e 0a 0a 42 | 79 20 74 68 65 20 74 69 |ited...B|y the ti|
|00001c90| 6d 65 20 61 6c 6c 20 74 | 68 65 20 6e 75 6d 65 72 |me all t|he numer|
|00001ca0| 61 6c 20 61 6e 64 20 6e | 75 6d 65 72 61 6c 20 70 |al and n|umeral p|
|00001cb0| 61 69 72 73 20 68 61 76 | 65 20 62 65 65 6e 20 75 |airs hav|e been u|
|00001cc0| 73 65 64 20 74 68 65 20 | 0a 63 6f 6d 70 6c 65 74 |sed the |.complet|
|00001cd0| 65 20 52 6f 6d 61 6e 20 | 4e 75 6d 65 72 61 6c 20 |e Roman |Numeral |
|00001ce0| 69 73 20 64 69 73 70 6c | 61 79 65 64 20 6f 6e 20 |is displ|ayed on |
|00001cf0| 74 68 65 20 73 63 72 65 | 65 6e 20 6e 65 78 74 20 |the scre|en next |
|00001d00| 74 6f 20 69 74 73 20 0a | 64 65 63 69 6d 61 6c 20 |to its .|decimal |
|00001d10| 65 71 75 69 76 61 6c 65 | 6e 74 2e 20 90 07 0a 90 |equivale|nt. ....|
|00001d20| 04 46 69 6c 65 44 61 74 | 61 83 54 45 4d 50 4c 41 |.FileDat|a.TEMPLA|
|00001d30| 54 45 53 00 3a 8e 01 00 | 00 43 ec ff ff 9e 65 1e |TES.:...|.C....e.|
|00001d40| da 03 00 f0 ab ff 90 04 | 00 90 0c 2c 00 90 03 62 |........|...,...b|
|00001d50| 01 00 00 01 00 90 03 52 | 6f 6d 61 6e 0d 65 74 57 |.......R|oman.etW|
|00001d60| 69 6e 64 00 90 04 06 01 | 00 00 c8 00 90 03 7c 03 |ind.....|......|.|
|00001d70| 00 00 e0 01 00 90 0a 20 | 07 00 00 12 00 05 87 07 |....... |........|
|00001d80| 02 07 01 03 01 0c 00 90 | 05 e8 fe ff ff 76 02 00 |........|.....v..|
|00001d90| 90 06 3d 01 00 d7 00 30 | 00 00 01 00 90 07 18 01 |..=....0|........|
|00001da0| 00 00 ff 90 04 21 00 90 | 03 06 00 90 03 6c 01 00 |.....!..|.....l..|
|00001db0| 00 9c ff 90 03 1c 02 00 | 00 d0 ff 90 03 3d f1 00 |........|.....=..|
|00001dc0| 07 39 01 00 00 3c 01 00 | 00 05 00 90 03 12 00 90 |.9...<..|........|
|00001dd0| 03 0c ff 90 03 66 02 00 | 00 40 ff 90 03 3d 61 00 |.....f..|.@...=a.|
|00001de0| 07 41 01 00 00 ff 90 04 | 28 00 90 03 26 00 90 03 |.A......|(...&...|
|00001df0| 98 ff 90 03 12 01 00 00 | c8 ff 90 03 39 01 00 17 |........|....9...|
|00001e00| 42 01 00 00 ff 90 04 0f | 00 90 03 ba 00 90 03 44 |B.......|.......D|
|00001e10| ff 90 03 c6 01 00 00 74 | ff 90 03 39 61 00 17 51 |.......t|...9a..Q|
|00001e20| 01 00 00 ff 90 04 11 00 | 90 03 28 02 00 00 9c ff |........|..(.....|
|00001e30| 90 03 44 02 00 00 cc ff | 90 03 3d 20 00 07 89 0d |..D.....|..= ....|
|00001e40| 6e 74 69 74 6c 65 64 3e | 0d 7f 45 01 00 00 9c ff |ntitled>|..E.....|
|00001e50| 90 03 61 01 00 00 cc ff | 90 03 3d 20 00 07 88 0d |..a.....|..= ....|
|00001e60| 6e 74 69 74 6c 65 64 3e | 0d 7f 44 65 63 69 6d 61 |ntitled>|..Decima|
|00001e70| 6c 20 4e 75 6d 62 65 72 | 73 20 3e 20 52 6f 6d 61 |l Number|s > Roma|
|00001e80| 6e 20 4e 75 6d 65 72 61 | 6c 73 0d 31 31 0d 41 30 |n Numera|ls.11.A0|
|00001e90| 2d 39 0d 0d 44 65 63 69 | 6d 61 6c 20 4e 75 6d 62 |-9..Deci|mal Numb|
|00001ea0| 65 72 0d 52 6f 6d 61 6e | 20 45 71 75 69 76 61 6c |er.Roman| Equival|
|00001eb0| 65 6e 74 0d             |                         |ent.    |        |
+--------+-------------------------+-------------------------+--------+--------+